home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0798.ZIP / SE.MSG < prev    next >
Text File  |  1987-10-01  |  9KB  |  207 lines
  1. 0 15 0 15 0 15 15 0 2 15 3 15 1 15 15 0
  2. 1 Press any Key to continue
  3. 2 File does not exist
  4. 3 File not open for input
  5. 4 File not open for output
  6. 5 File not open
  7. 6 Can't read from this file
  8. 7 Can't write to this file
  9. 8 Error in numeric format
  10. 9 Operation not allowed on a logical device
  11. 10 Not allowed in direct mode
  12. 11 Assign to standard files not allowed
  13. 12 Record length mismatch
  14. 13 Seek beyond end of file
  15. 14 Unexpected end of file
  16. 15 Disk write error, or disk is full
  17. 16 Directory is full
  18. 17 File size overflow
  19. 18 File disappeared
  20. 19 Unknown I/O error:
  21. 20 Please use the [UP ARROW] and [DOWN ARROW] keys to move among items. Press
  22. 21 [ENTER] to select the item. Press [ESC] to quit. Press any key to continue
  23. 22 Cursor control: [UP ARROW] or [DOWN ARROW]. Select:[ENTER]. Quit:[ESC]
  24. 23 MOVE ITEM. Position cursor on item. Press [ENTER]
  25. 24 Move cursor to new position and press [ENTER]
  26. 25 Item would wrap around screen. Please reposition UPPER LEFT corner
  27. 26 B&W video options
  28. 27 DUPLICATE. Position cursor on item and press [ENTER]
  29. 28 Move cursor to position of new field and press [ENTER]
  30. 29 Indicated position will cause item to wrap around screen.
  31. 30 Enter type of variable
  32. 31 Enter output format for this real variable
  33. 32 Select Date input/output format
  34. 33 For Scientific Notation you must enter spaces in addition of the ones shown
  35. 34 Type number of decimals in the output field: 0..
  36. 35 Accept boxes, lines and symbols default background and symbol color?
  37. 36 Please choose color of Box background
  38. 37 Please choose color of Symbol
  39. 38 Move cursor to desired position and press [ENTER]
  40. 39 Move cursor to any corner of box or line and press [ENTER]
  41. 40 Use the cursor keys to expand box or line to desired size and press [ENTER]
  42. 41 No boxes have been designed. Please use options 1 through 4 to design one
  43. 42 Position cursor on box to be modified and press [ENTER]
  44. 43 Item is not a box or line
  45. 44 MAKE "COMPLEX" BOX
  46. 45 SELECT TYPE OF GRAPHIC CHARACTER FOR BOX OR LINE, OR MAKE "COMPLEX" BOXES
  47. 46 Move cursor to any corner of range to be moved and press [ENTER]
  48. 47 Move cursor to OPPOSITE corner of range to be moved and press [ENTER]
  49. 48 Move range to new position and press [ENTER]
  50. 49 That position would cause the range to wrap around the screen.
  51. 50 ALTER DEFAULTS. Make all your changes and select EXECUTE to proceed
  52. 51 Please choose screen background
  53. 52 Please choose screen text
  54. 53 Please choose box background
  55. 54 Please choose box text
  56. 55 Please choose label background
  57. 56 Please choose label text
  58. 57 Please choose variable background
  59. 58 Please choose variable text
  60. 59 WHAT DO YOU WANT TO MOVE?
  61. 60 ERASE. Position cursor on upper left corner of item and press [ENTER]
  62. 61 SCREEN DESIGN MENU
  63. 62 Do you want to quit the screen design menu?
  64. 63 Enter screen name. Use one valid Turbo-Pascal identifier
  65. 64 Enter existing file name, or type "?"
  66. 65 Invalid ScreenEngine program
  67. 66 DEFINITION OF TERMS USED IN ScreenEngine
  68. 67 Nothing to save!!!. Press any key to continue
  69. 68 You are quitting ScreenEngine without saving your work. Are you sure?
  70. 69 ───────────────────
  71. 70 To select a menu item you may either: (1) move the cursor with the right and
  72. 71 left arrows to highlight a choice, then press [ENTER], or (2) type the first
  73. 72 letter of any menu item
  74. 73 Please select your terminal mode:
  75. 74 Current Filename:
  76. 75 Current Directory:
  77. 76 to accept these names, or type new names.
  78. 77 Your screen will be saved under the filename
  79. 78 SAVE SCREEN INFORMATION
  80. 79 and directory shown below. Press [ENTER] twice
  81. 80 Can not change to that directory. Reenter
  82. 81 {Replace this line with your own}
  83. 82 {Type declaration}
  84. 83 type
  85. 84   TSStr     = String[80];
  86. 85   TSCharSet = set of char;
  87. 86   TSDate    = String[6];
  88. 87 {Global variables}
  89. 88 var
  90. 89   TSString  :  TSStr;
  91. 90 {$I SE.UTL}
  92. 91   procedure PutTitle
  93. 92       TextBackground(
  94. 93       TextColor(
  95. 94       ClrScr;
  96. 95       Dummy
  97. 96  {$V-}         {Do not remove this compiler directive
  98. 97   it is required to disable type checking in this procedure}
  99. 98  type
  100. 99    TSCharSet = set of Char;
  101. 100  var
  102. 101    Chr1,Chr2 : Char;
  103. 102    L         : Byte;
  104. 103  Const
  105. 104    End1 : TSCharSet = [^I,^M,#27,#10];
  106. 105    End2 : TSCharSet = ['H','P'];
  107. 106  begin
  108. 107   OutVar
  109. 108   if (Chr1 = ^I) or (Chr1 = ^M) or ((Chr1 = #27) and (Chr2 ='P')) then
  110. 109   if (Chr1 = #27) and (Chr2 = 'H') then
  111. 110   until ((Chr1 = ^M) and (L = 1)) or (Chr1 = #10);
  112. 111 {$V+}    {Do not remove this compiler directive
  113. 112           it enables type checking}
  114. 113 (************** Initialize Variables **************)
  115. 114 (* SUBSTITUTE THESE VALUES WITH YOUR OWN DEFAULTS *)
  116. 115 (**************Test      Program************)
  117. 116 (***SUBSTITUTE THIS PROGRAM WITH YOUR OWN***)
  118. 117 (* Place the following calling sequence in the appropriate
  119. 118    location in your program  *)
  120. 119    {delete the next three lines after you have tested the screen program}
  121. 120 GotoXY(1,25);ClrEOL;
  122. 121 write('End of Input test. Press any key to continue');
  123. 122 repeat until KeyPressed;
  124. 123 write('End of Output test. Press any key to continue');
  125. 124 write('End of program test. Press any key to continue');
  126. 125       {This screen does not contain Variables}
  127. 126       {delete next line after you have tested the screen program}
  128. 127 write('End of program testing. Press any key to return');
  129. 128   {delete next line after you have tested the screen program}
  130. 129 File with same name already in disk. Overwrite old file?
  131. 130 CHANGE. Position cursor on upper left corner of item and press [ENTER]
  132. 131 CHANGE BOX OR GRAPHICS CHAR. Make all your choices and type "E" to proceed:
  133. 132 Enter new graphic character
  134. 133 Please choose color of Box's background
  135. 134 Please choose color of box's symbol
  136. 135 CHANGE box symbol type.
  137. 136 CHANGE BOX SIZE: Move cursor to NEW LOWER RIGHT corner and press [ENTER]
  138. 137 CHANGE LABEL. Make all your changes and type "E" to proceed
  139. 138 Please choose color of label's background
  140. 139 Please choose color of label's text
  141. 140 CHANGE VARIABLE. Make all your changes and type "E" to proceed
  142. 141 Please choose color of variable's background
  143. 142 Please choose color of variable's text
  144. 143 Should this variable be protected from being changed by the user?
  145. 144 Field length of date variables can not be changed
  146. 145 Enter spaces for new field length
  147. 146 Not enough spaces for scientific format!!
  148. 147 Enter new variable name
  149. 148 String Variables have no format to be changed
  150. 149 Enter new field length
  151. 150 Select Date input/output format
  152. 151 Accept default Background and Text Colors?
  153. 152 Enter name of variable
  154. 153 Move cursor to desired location in the screen and
  155. 154 Enter spaces to cover maximum length of variable and press [ENTER].
  156. 155 Move cursor to highlight file or directory.
  157. 156 Type    to change Directory.
  158. 157 Type    to erase highlighted file.
  159. 158 Press [ENTER] to select file or directory, or press [Esc] to quit.
  160. 159 Reading directory........
  161. 160 Enter new directory
  162. 161 Non existent directory. Reenter
  163. 162 Do you want to erase
  164. 163 Invalid Date
  165. 164 Enter MINIMUM allowed value
  166. 165 Enter MAXIMUM allowed value
  167. 166 Invalid range. Reenter
  168. 167 VARIABLE RANGE: Do you want to specify a range of acceptable values?
  169. 168 Place the cursor over each variable location in the order desired and press
  170. 169 [ENTER] to mark it. Press [ENTER] twice to sort marked variables
  171. 170 Dou you want to erase your current work?
  172. 171 Minimum acceptable value
  173. 172 Maximum acceptable value
  174. 173 Turbo Pascal I/O error code
  175. 174 Reading File
  176. 175 Opening File
  177. 176 for directory listing
  178. 177 INPUT EXISTING FILENAME
  179. 178 Space available (bytes):
  180. 179 Editing Label
  181. 180 Please Choose
  182. 181 Background
  183. 182 Text
  184. 183 press [ENTER]
  185. 184 type label
  186. 185 Enter label
  187. 186 Unable to find file
  188. 187 Press [ENTER] to change directory or press [Esc] to stop program
  189. 188 Enter new directory:
  190. 189 Use the [RIGHT ARROW] and [LEFT ARROW] cursor keys to move among symbols.
  191. 190 Press [ENTER] to select symbol, or [ESC] to leave without selecting
  192. 191 Place the cursor over the box or line. Mark it by
  193. 192 Place the cursor over the location of each variable. Mark the variable by
  194. 193 pressing [ENTER]. Press ENTER] twice to sort marked items
  195. 194 Item marked is not a
  196. 195 More than one item at pointed location. Press [ENTER] to select blinking
  197. 196 item; press [Space] to highlight another one; press [Esc] to quit.
  198. 197 The maximum number of items on the screen has been reached
  199. 198 TSDefAttrib:  byte;    {Screen color attribute}
  200. 200 TSInsMode  :  boolean; {keeps track of the insert key}
  201. 201 {$I SEREAL.UTL}  {utilities for real variables. Delete if not needed}
  202. 202 {$I SEDATE.UTL}  {utilities for date variables. Delete if not needed}
  203. 203 {$I SEINT.UTL}   {utilities for integer variables. Delete if not needed}
  204. 204    TSInsMode   := false;
  205. 205    TSDefAttrib :=
  206. 206 WARNING: Total number of items exceeds program capacity. Number truncated.
  207.